home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / dev / gcc / ixemul_src.lha / ixemul-41.0 / stack / link_a5_d0_f.c < prev    next >
C/C++ Source or Header  |  1995-05-23  |  388b  |  33 lines
  1. #include <bases.h>
  2.  
  3. asm("
  4.     .text
  5.     .even
  6.     .globl    ___link_a5_d0_f
  7.     .globl    ___sub_d0_sp_f
  8.  
  9. ___link_a5_d0_f:
  10.     movel    sp@+,a0
  11.     movel    sp,d1
  12.     subl    d0,d1
  13.     cmpl    "A4(___stk_limit)",d1
  14.     jcc    l0
  15.     jbsr    l2
  16. l0:    link    a5,#0:W
  17.     subl    d0,sp
  18.     jmp    a0@
  19.  
  20. ___sub_d0_sp_f:
  21.     movel    sp@+,a0
  22.     movel    sp,d1
  23.     subl    d0,d1
  24.     cmpl    "A4(___stk_limit)",d1
  25.     jcc    l1
  26.     jbsr    l2
  27. l1:    subl    d0,sp
  28.     jmp    a0@
  29.  
  30. l2:    clrl    d1
  31.     jra    ___stkext_f
  32. ");
  33.